#!/usr/bin/env perl

use strict;
use utf8;

my ($number) = @ARGV;

print "$number -hex-> ".hex($number)."\n";
print "$number -oct-> ".oct($number)."\n";
